home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 24 / AACD 24.iso / AACD / Information / WebSites / Eyetech / DOWNLOAD / CYBER010.LHA / CV3DInstall / tools / CyberBackUp-UnInstall < prev    next >
Text File  |  1997-02-28  |  16KB  |  399 lines
  1. ;********************************************************************************
  2. ;    ______        __                  ______                     __  __   __
  3. ;   / __  /       / /                 / __  /                    / /  \ \ / /
  4. ;  / /  -'__  __ / /___ ______ _____ / /_ -'_____ ______ ______ / /__  \ \ /
  5. ; / /     \ \/ // __  // ____// .__// // \ / .__// __  // __  // __  / /  /
  6. ;/ /___    \  // /_/ // __/_ / /   / /_/ // /   / __  // /_/ // / / / / \ \
  7. ;\____/    / //_____//_____//_/   /_____//_/   /_/ /_// ____//_/ /_/ /_/ \_\
  8. ;         /_/                                        / /
  9. ;                                                   /_/
  10. ; $VER: 1.4 (December-08-1996)
  11. ;
  12. ; CyberBackUp-UnInstallV2 ©1995,1996,1997 by Robert C. Reiswig
  13. ; Suggestions or problems: vgr@best.com
  14. ;--------------------------------------------------------------------------------
  15. ;
  16. ;********************************************************************************
  17. (if (= @user-level 0) (set @user-level 2))
  18.  
  19. ;********************************************************************************
  20. ; Read All System information
  21. ;********************************************************************************
  22. (set lan 1)
  23. (if (> (exists ("env:Language")) 0)
  24.   (if (= "deutsch" (getenv "Language")) (set lan 0) )
  25. )
  26.  
  27. ;********************************************************************************
  28. ;English Information
  29. ;********************************************************************************
  30. (set #whattodo "\nWhat would you like to do?\n")
  31. (set #backupcyber " BackUp CyberGraphX V2")
  32. (set #removecyber " UnInstall CyberGraphX V2")
  33. (set #whatpartsb "\nWhat parts of CyberGraphX V2 would you like to BackUp?\n")
  34. (set #libs " Libraries")
  35. (set #monitor " Monitor File")
  36. (set #env " ENV: Vars")
  37. (set #envarc " ENVARC: Vars")
  38. (set #whereback "Where would you like to BackUp the selected CyberGraphX V2 Parts?  If a directory Called 'CyberGraphX' is not there one will be created.")
  39. (set #libsbacked1 "\n\nThe CyberGraphX V2 Libraries have been backed-up to:\n\n")
  40. (set #libsbacked2 "\n\n\n\nThe libraries have been renamed to:\n\n<filename>+<version.revision>")
  41. (set #gettingcheck "\n\nGetting Checksum for:\n\n")
  42. (set #monbacked1 "\n\nThe CyberGraphX V2 Monitor File(s) have been backed-up to:\n\n")
  43. (set #monbacked2 "\n\n\n\nThe Monitor File(s) have been renamed to:\n\n<filename>+<checksum>")
  44. (set #backenv "\n\nBacking-Up CyberGraphX V2 ENV: File(s)")
  45. (set #envbacked1 "\n\nThe CyberGraphX V2 ENV: File(s) have been backed-up to:\n\n")
  46. (set #backenvarc "\n\nBacking-Up CyberGraphX V2 ENVARC: File(s)")
  47. (set #envarcbacked1 "\n\nThe CyberGraphX V2 ENVARC: File(s) have been backed-up to:\n\n")
  48. (set #notthere "\n\nCurrently UnInstall is not implemented!")
  49. (set #whatpartun "\nWhat parts of CyberGraphX V2 would you like to UNINSTALL/DELETE?\n")
  50. ;--
  51. (set #deletefile "\n\nDeleteing file:\n\n")
  52. (set #deletedir "\n\nDeleteing directory:\n\n")
  53. (set #deletemon (cat "\n\nThe installer will now DELETE the following files from 'Devs:Monitors' if there are there\n\n"
  54.                      "Spectrum, Piccolo, Domino, RetinaZ3, PiccoSD64, A2410, Picasso, CyberVision, DraCoAltais\n\n"
  55.                      "and there .info files."
  56.                 )
  57. )
  58. (set #deletelibs (cat "\n\nThe installer will now DELETE the following files from 'Libs:' if there are there\n\n"
  59.                       "cybergraphics.library\ncyberintuition.library\ncyberlayers.library\ncyberncg.library\nvilintuisup.library"
  60.                  )
  61. )
  62. (set #deleteenv "\n\nThe installer will now DELETE 'env:cybergraphics/#?'")
  63. (set #deleteenvarc "\n\nThe installer will now DELETE 'envarc:cybergraphics/#?'")
  64. (set #removenow "Delete Now")
  65. (set #skip "Skip")
  66.  
  67. (set #envenvarc "The installer has found that you have ENV: and ENVARC: assigned to the same place.  The installer will not select these options for uninstalling and removing.\n\nIt has been reported that if the ENV: files for CyberGraphX V2 are delete and that the older graphics card is still installed it may cause the machine to crash.\n\nIt is not 'standard' for ENV: and ENVARC: to be assigned to the same place, you will need to delete these later if you wish.")
  68. (set #nocv3dinst "The installer has found that you do not have the CyberVision64/3D installed.  The installer will not select the ENV: option for uninstalling and removing.\n\nDeleting the env: files for V2 would lead to loss of resolutions for your older graphics card otherwise, the system might even stop and wait for some response while booting.\n\nENV: should be deleted when you reboot to run CyberGraphX V3.")
  69.  
  70. ;********************************************************************************
  71. ;German Information
  72. ;********************************************************************************
  73. (if (= LAN 0)
  74. (
  75. (set #whattodo "\nWas möchten Sie tun ?\n")
  76. (set #backupcyber " Sichere CyberGraphX V2")
  77. (set #removecyber " Entferne CyberGraphX V2")
  78. (set #whatpartsb "\nWelche Teile von CyberGraphX V2 möchten Sie sichern?\n")
  79. (set #libs " Libraries")
  80. (set #monitor " Monitor Datei(en)")
  81. (set #env " ENV: Variablen")
  82. (set #envarc " ENVARC: Variablen")
  83. (set #whereback "Wohin wollen Sie die gewählten CyberGraphX V2 Teile sichern?  Wenn ein Verzeichnis 'CyberGraphX' nicht vorhanden ist, wird es erstellt.")
  84. (set #libsbacked1 "\n\nDie CyberGraphX V2 Libraries wurden gesichert nach:\n\n")
  85. (set #libsbacked2 "\n\n\n\nDie Libraries wurden umbenannt in:\n\n<filename>+<version.revision>")
  86. (set #gettingcheck "\n\nErzeuge Prüfsumme für:\n\n")
  87. (set #monbacked1 "\n\nDie CyberGraphX V2 Monitor Datei(en) wurden gesichert nach:\n\n")
  88. (set #monbacked2 "\n\n\n\nDie Monitor Datei(en) wurden umbenannt in:\n\n<filename>+<checksum>")
  89. (set #backenv "\n\nSichere CyberGraphX V2 ENV: Datei(en)")
  90. (set #envbacked1 "\n\nDie CyberGraphX V2 ENV: Datei(en) wurden gesichert nach:\n\n")
  91. (set #backenvarc "\n\nSichere CyberGraphX V2 ENVARC: Datei(en)")
  92. (set #envarcbacked1 "\n\nDie CyberGraphX V2 ENVARC: Datei(en) wurden gesichert nach:\n\n")
  93. (set #notthere "\n\nDie Option Deinstallieren ist nicht implementiert!")
  94. (set #whatpartun "\nWelche Teile von CyberGraphX V2 möchten sie deinstallieren/löschen?\n")
  95. ;--
  96. (set #deletefile "\n\nLösche Datei:\n\n")
  97. (set #deletedir "\n\nLösche Verzeichnis:\n\n")
  98. (set #deletemon (cat "\n\nDas Installationsprogramm löscht nun folgende Dateien aus 'Devs:Monitors'\n\n"
  99.                      "Spectrum, Piccolo, Domino, RetinaZ3, PiccoSD64, A2410, Picasso, CyberVision, DraCoAltais\n\n"
  100.                      "und die .info Dateien."
  101.                 )
  102. )
  103. (set #deletelibs (cat "\n\nDas Installationsprogramm wird nun folgende Dateien aus 'Libs:' löschen, falls vorhanden\n\n"
  104.                       "cybergraphics.library\ncyberintuition.library\ncyberlayers.library\ncyberncg.library\nvilintuisup.library"
  105.                  )
  106. )
  107. (set #deleteenv "\n\nDas Installationsprogramm löscht nun 'env:cybergraphics/#?'")
  108. (set #deleteenvarc "\n\nDas Installationsprogramm löscht nun 'envarc:cybergraphics/#?'")
  109. (set #removenow "Jetzt löschen")
  110. (set #skip "Überspringen")
  111.  
  112.  
  113. (set #envenvarc "Es wurde herausgefunden, daß ENV: und ENVARC: auf das gleiche Verzeichnis zeigen.  Die Löschung dieser Dateien wird deswegen nicht angeboten.\n\nEs wird nicht empfohlen, ENV: und ENVARC: auf das selbe Verzeichnis zeigen zu lassen.")
  114. (set #nocv3dinst "Es ist keine CyberVision64/3D im System installiert.  Die Option zum Deinstallieren und Entfernen von ENV: wird nicht selektiert.\n\nDas Löschen der ENV: Dateien für CyberGraphX V2 könnte sonst zum Verlust Ihrer alten Bildschirmauflösungen führen.\n\nDie ENV: Dateien sollten nach dem Neustart mit CyberGraphX V3 gelöscht werden.")
  115.  
  116.  
  117. )
  118. )
  119.  
  120.  
  121. ;********************************************************************************
  122. ; What to do?
  123. ;********************************************************************************
  124. (set ja (askoptions   (choices #backupcyber #removecyber)
  125.                        (prompt #whattodo)
  126.                       (help   #whattodo)
  127.                          (default 3)
  128.     )
  129. )
  130.  
  131. ;********************************************************************************
  132. ; BackUp
  133. ;********************************************************************************
  134. (if (IN ja 0)
  135. (
  136.  
  137. (set todo (askoptions   (choices #libs #monitor #env #envarc)
  138.                           (prompt #whatpartsb)
  139.                         (help   #whatpartsb)
  140.                            (default 15)
  141.     )
  142. )
  143.  
  144. (if (<> todo 0)
  145.  (
  146.    (set whereback (askdir (prompt #whereback)
  147.                       (help   #whereback)
  148.                           (default "SYS:Storage")
  149.               )
  150.    )
  151.  
  152.    (set wherelibs "libs:")
  153.    (set wheremon  "devs:monitors")
  154.  
  155.    (if (IN todo 0)
  156.       (
  157.          (set libsdest (tackon whereback "CyberGraphX"))
  158.          (if (< (exists libsdest) 2)  (makedir libsdest (infos)) )
  159.          (set libsdest (tackon whereback "CyberGraphX/libs"))
  160.          (if (< (exists libsdest) 2)  (makedir libsdest (infos)) )
  161.  
  162.          (procedure BackUpLib
  163.           (if (> (exists (tackon wherelibs #lib)) 0)
  164.            (
  165.              (set vernum1 (getversion (tackon wherelibs #lib)) )
  166.              (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  167.  
  168.              (copyfiles (source (tackon wherelibs #lib))
  169.                                 (dest libsdest)
  170.                                 (newname (cat #lib ver1 "." rev1))
  171.              )
  172.            )
  173.           )
  174.          )
  175.  
  176.          (set #lib "cybergraphics.library")  (BackUpLib)
  177.          (set #lib "cyberintuition.library") (BackUpLib)
  178.          (set #lib "cyberlayers.library")    (BackUpLib)
  179.          (set #lib "vilintuisup.library")    (BackUpLib)
  180.          (set #lib "gtlayout.library")       (BackUpLib)
  181.  
  182.          (message (cat #libsbacked1 libsdest #libsbacked2))
  183.       )
  184.     )
  185.  
  186.  
  187.    (if (IN todo 1)
  188.       (
  189.          (set mondest (tackon whereback "CyberGraphX"))
  190.          (if (< (exists mondest) 2)  (makedir mondest (infos)) )
  191.          (set mondest (tackon whereback "CyberGraphX/Devs"))
  192.          (if (< (exists mondest) 2)  (makedir mondest (infos)) )
  193.          (set mondest (tackon whereback "CyberGraphX/Devs/Monitors"))
  194.          (if (< (exists mondest) 2)  (makedir mondest (infos)) )
  195.  
  196.          (procedure BackUpMon
  197.           (if (> (exists (tackon wheremon #mon)) 0)
  198.             (
  199.              (working (cat #gettingcheck (tackon wheremon #mon) ))
  200.              (set sum (getsum (tackon wheremon #mon)) )
  201.              (if (< sum 0) (set sum (* sum -1)) )
  202.  
  203.               (copyfiles (source (tackon wheremon #mon))
  204.                                  (dest mondest)
  205.                                  (newname (cat #mon "." sum))
  206.                                  (infos)
  207.               )
  208.             )
  209.           )
  210.          )
  211.  
  212.          (set #mon "Spectrum")    (BackUpMon)
  213.          (set #mon "Piccolo")     (BackUpMon)
  214.          (set #mon "Domino")      (BackUpMon)
  215.          (set #mon "RetinaZ3")    (BackUpMon)
  216.          (set #mon "PiccoSD64")   (BackUpMon)
  217.          (set #mon "A2410")       (BackUpMon)
  218.          (set #mon "Picasso")     (BackUpMon)
  219.          (set #mon "CyberVision") (BackUpMon)
  220.          (set #mon "DraCoAltais") (BackUpMon)
  221.          (set #mon "Merlin")      (BackUpMon)
  222.  
  223.          (message (cat #monbacked1 mondest #monbacked2))
  224.       )
  225.     )
  226.  
  227.  
  228.    (if (IN todo 2)
  229.       (
  230.          (set envdest (tackon whereback "CyberGraphX"))
  231.          (if (< (exists envdest) 2)  (makedir envdest (infos)) )
  232.          (set envdest (tackon whereback "CyberGraphX/Env"))
  233.          (if (< (exists envdest) 2)  (makedir envdest (infos)) )
  234.          (set envdest (tackon whereback "CyberGraphX/Env/cybergraphics"))
  235.          (if (< (exists envdest) 2)  (makedir envdest (infos)) )
  236.  
  237.          (working #backenv)
  238.          (set copycmd (cat "copy env:cybergraphics to \"" envdest "\" all"))
  239.          (run copycmd)
  240.  
  241.          (message (cat #envbacked1 envdest))
  242.       )
  243.    )
  244.  
  245.    (if (IN todo 3)
  246.       (
  247.          (set envarcdest (tackon whereback "CyberGraphX"))
  248.          (if (< (exists envarcdest) 2)  (makedir envarcdest (infos)) )
  249.          (set envarcdest (tackon whereback "CyberGraphX/EnvArc"))
  250.          (if (< (exists envarcdest) 2)  (makedir envarcdest (infos)) )
  251.          (set envarcdest (tackon whereback "CyberGraphX/EnvArc/cybergraphics"))
  252.          (if (< (exists envarcdest) 2)  (makedir envarcdest (infos)) )
  253.  
  254.          (working #backenvarc)
  255.          (set copycmd (cat "copy envarc:cybergraphics to \"" envarcdest "\" all"))
  256.          (run copycmd)
  257.  
  258.          (message (cat #envarcbacked1 envarcdest))
  259.       )
  260.    )
  261.  
  262.  
  263.  )
  264. )
  265.  
  266.  
  267. )
  268. )
  269.  
  270. ;********************************************************************************
  271. ; UnInstall
  272. ;********************************************************************************
  273. (set dfn "")
  274. (procedure dfd   (delete (tackon "devs:monitors" dfn) (infos))  )
  275. (procedure dfl   (delete (tackon "libs:" dfn) (infos))  )
  276.  
  277. (if (IN ja 1)
  278. (
  279.  
  280. (set denv 0) (set denvarc 0) (set envpath "") (set envarcpath "")
  281. (if (> (exists ("env:")) 0)  ( (set envpath (expandpath "env:")) ) )
  282. (if (> (exists ("envarc:")) 0)  ( (set envarcpath (expandpath "envarc:")) ) )
  283. (if (= envpath envarcpath) ((message #envenvarc) (set denv 4) (set denvarc 8) ))
  284.  
  285. (set #cpath "")
  286. (if (> (exists ("tools/Chk4CV3D")) 0) (set #cpath "tools") )
  287. (if (> (exists ("Chk4CV3D")) 0) (set #cpath "") )
  288.  
  289. (set error2 (run (tackon #cpath "Chk4CV3D") ))
  290. (if (= error2 0) ((message #nocv3dinst) (set denv 4) ) )
  291.  
  292. (set masterDEL 15) (set masterDEL (- masterDEL denv)) (set masterDEL (- masterDEL denvarc))
  293.  
  294. (set todo1 (askoptions   (choices #libs #monitor #env #envarc)
  295.                           (prompt #whatpartun)
  296.                         (help   #whatpartun)
  297.                            (default masterDEL)
  298.     )
  299. )
  300.  
  301. (if (IN todo1 0)
  302.   (
  303.    (set kill (askbool (prompt #deletelibs)
  304.                (help   #deletelibs)
  305.                       (choices #removenow #Skip)
  306.          )
  307.    )
  308.  
  309.    (if (= kill 1)
  310.     (
  311.      (set dfl "vilintuisup.library")   (dfl) (set dfl "cyberncg.library")       (dfl)
  312.      (set dfl "cybergraphics.library") (dfl) (set dfl "cyberintuition.library") (dfl)
  313.      (set dfl "cyberlayers.library")   (dfl)
  314.  
  315.     )
  316.    )
  317.   )
  318. )
  319.  
  320.  
  321. (if (IN todo1 1)
  322.   (
  323.    (set kill (askbool (prompt #deletemon)
  324.                (help   #deletemon)
  325.                       (choices #removenow #Skip)
  326.          )
  327.    )
  328.  
  329.    (if (= kill 1)
  330.     (
  331.      (set dfn "Spectrum") (dfd) (set dfn "Piccolo")     (dfd) (set dfn "Domino") (dfd)
  332.      (set dfn "RetinaZ3") (dfd) (set dfn "PiccoSD64")   (dfd) (set dfn "A2410") (dfd)
  333.      (set dfn "Picasso")  (dfd) (set dfn "CyberVision") (dfd) (set dfn "DraCoAltais") (dfd)
  334.     )
  335.    )
  336.   )
  337. )
  338.  
  339.  
  340. (if (IN todo1 2)
  341.   (
  342.    (set kill (askbool (prompt #deleteenv)
  343.                (help   #deleteenv)
  344.                       (choices #removenow #Skip)
  345.          )
  346.    )
  347.  
  348.    (if (= kill 1)
  349.     (
  350.      (foreach "env:cybergraphics" "#?"
  351.       (set curdir @each-name)
  352.       (foreach (tackon "env:cybergraphics" curdir) "#?"
  353.          ;(working (cat "\n\n" #deletefile "\n\n" (tackon (tackon "env:cybergraphics" curdir) @each-name)))
  354.          (delete (tackon (tackon "env:cybergraphics" curdir) @each-name))
  355.       )
  356.       ;(working (cat "\n\n" #deletedir "\n\n" (tackon "env:cybergraphics" curdir)))
  357.       (delete (tackon "env:cybergraphics" curdir))
  358.      )
  359.      (delete "env:cybergraphics")
  360.     )
  361.    )
  362.   )
  363. )
  364.  
  365.  
  366. (if (IN todo1 3)
  367.   (
  368.    (set kill (askbool (prompt #deleteenvarc)
  369.                (help   #deleteenvarc)
  370.                       (choices #removenow #Skip)
  371.          )
  372.    )
  373.  
  374.    (if (= kill 1)
  375.     (
  376.      (foreach "envarc:cybergraphics" "#?"
  377.       (set curdir @each-name)
  378.       (foreach (tackon "envarc:cybergraphics" curdir) "#?"
  379.          ;(working (cat "\n\n" #deletefile "\n\n" (tackon (tackon "envarc:cybergraphics" curdir) @each-name)))
  380.          (delete (tackon (tackon "envarc:cybergraphics" curdir) @each-name))
  381.       )
  382.       ;(working (cat "\n\n" #deletedir "\n\n" (tackon "envarc:cybergraphics" curdir)))
  383.       (delete (tackon "envarc:cybergraphics" curdir))
  384.      )
  385.      (delete "envarc:cybergraphics")
  386.     )
  387.    )
  388.   )
  389. )
  390.  
  391.  
  392. )
  393. )
  394. ;********************************************************************************
  395. ; END
  396. ;********************************************************************************
  397. (set @default-dest (cat whereback "CyberGraphX"))
  398. (exit "CyberBackUp-UnInstall")
  399.